home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / adpromac.lha / $CUST_LOGO_BOT.adpro < prev    next >
Text File  |  1993-08-18  |  2KB  |  81 lines
  1. /* ****************************************************************** */
  2. /*               Macro Maker ADPRO AREXX Script                       */
  3. /*                                      */
  4. /*            create 2 pic logo at top                      */
  5. /*                with custom background                */
  6. /* ****************************************************************** */
  7. OPTIONS RESULTS
  8. NL = '0A'X
  9. Address 'ADPro'
  10. STRING = 'CREATE A 2 PIC LOGO PAGE'||NL||'AT BOTOM WITH CUSTOM BG?'
  11. OKAY2 STRING
  12. IF RC = 0 THEN EXIT
  13. GETBG:
  14. GETFILE '"USE WHICH IMAGE FOR BACKGROUND?"' 'EH0:'
  15. BG = ADPRO_RESULT
  16. IF RC ~= 0 THEN SIGNAL GETBG
  17. SWITCH = 0
  18. STRING = 'DO YOU WANT SHADOWS?'
  19. OKAY2 STRING
  20. IF RC ~= 0 THEN SWITCH = 1
  21. ELSE SWITCH = 0
  22. LFORMAT "UNIVERSAL"
  23. GETFILES '"SHIFT & PICK 2 IMAGES"' 'EH0:'
  24. LFNAM = ADPRO_RESULT
  25. LOAD WORD(LFnam,1)
  26. IF RC ~= 0 THEN DO
  27.         OKAY1 'Could Not Load' LFnam
  28.         EXIT
  29.     END
  30. ABS_SCALE  280 180
  31. OPERATOR "RECTANGLE" 0 0 280 180 7 255 255 255
  32. SFORMAT 'JPEG'
  33. SAVE "RAM:TEMP1" "RAW" 50
  34. LOAD WORD(LFnam,2)
  35. IF RC ~= 0 THEN DO
  36.         OKAY1 'Could Not Load' LFnam
  37.         EXIT
  38.     END
  39. ABS_SCALE  280 180
  40. OPERATOR "RECTANGLE" 0 0 280 180 7 255 255 255
  41. SFORMAT 'JPEG'
  42. SAVE "RAM:TEMP2" "RAW" 50
  43. LFORMAT "UNIVERSAL"
  44. LOAD BG
  45. IF RC ~= 0 THEN DO
  46.     OKAY1 'COULD NOT LOAD' BG
  47.     EXIT
  48.     END
  49. X = XSIZE
  50. IF X < 752 THEN DO
  51.     ABS_SCALE 752 480
  52.     END
  53. LFORMAT 'UNIVERSAL'
  54. IF SWITCH = 1 THEN DO
  55.     OPERATOR "RECTANGLE" 90 260 280 180 '-1' 0 0 0 50 
  56.     END
  57. LOAD "RAM:TEMP1" 80 250 100 
  58. IF RC ~= 0 THEN DO
  59.         OKAY1 'Could Not Load' LFnam
  60.         EXIT
  61.     END
  62. IF SWITCH = 1 THEN DO
  63.     OPERATOR "RECTANGLE" 410 260 280 180 '-1' 0 0 0 50 
  64.     END
  65. LOAD "RAM:TEMP2" 400 250 100  
  66. IF RC ~= 0 THEN DO
  67.         OKAY1 'Could Not Load' LFnam
  68.         EXIT
  69.     END
  70. SFORMAT 'IFF' 
  71. GETFILE 'SAVE-FILE'
  72. SFNAM = ADPRO_RESULT
  73. SAVE SFNAM 'RAW'
  74. IF RC ~= 0 THEN DO
  75.         OKAY1 'Could Not Save' SFnam
  76.         EXIT
  77.     END
  78. address command 'delete ram:temp1'
  79. address command 'delete ram:temp2'
  80. EXIT
  81.